home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / text / edit / vim60rt.lha / Vim / vim60 / syntax / nastran.vim < prev    next >
Encoding:
Text File  |  2001-04-29  |  8.7 KB  |  194 lines
  1. " Vim syntax file
  2. " Language: NASTRAN input/DMAP
  3. " Maintainer: Tom Kowalski (tom.kowalski@mscsoftware.com)
  4. " Last change: April 27, 2001
  5. "  Thanks to the authors and maintainers of fortran.vim.
  6. "               Since DMAP shares some traits with fortran, this syntax file
  7. "               is based on the fortran.vim syntax file.
  8. "----------------------------------------------------------------------
  9. " Remove any old syntax stuff hanging around
  10. "syn clear
  11. if version < 600
  12.   syntax clear
  13. elseif exists("b:current_syntax")
  14.   finish
  15. endif
  16. " DMAP is not case dependent
  17. syn case ignore
  18. "
  19. "--------------------DMAP SYNTAX---------------------------------------
  20. "
  21. " -------Executive Modules and Statements
  22. "
  23. syn keyword nastranDmapexecmod         call dbview delete end equiv equivx exit
  24. syn keyword nastranDmapexecmod         file message purge purgex return subdmap
  25. syn keyword nastranDmapType            type
  26. syn keyword nastranDmapLabel  go to goto
  27. syn keyword nastranDmapRepeat  if else elseif endif then
  28. syn keyword nastranDmapRepeat  do while
  29. syn region nastranDmapString  start=+"+ end=+"+ oneline
  30. syn region nastranDmapString  start=+'+ end=+'+ oneline
  31. " If you don't like initial tabs in dmap (or at all)
  32. "syn match nastranDmapIniTab  "^\t.*$"
  33. "syn match nastranDmapTab   "\t"
  34.  
  35. " Any integer
  36. syn match nastranDmapNumber  "-\=\<[0-9]\+\>"
  37. " floating point number, with dot, optional exponent
  38. syn match nastranDmapFloat  "\<[0-9]\+\.[0-9]*\([edED][-+]\=[0-9]\+\)\=\>"
  39. " floating point number, starting with a dot, optional exponent
  40. syn match nastranDmapFloat  "\.[0-9]\+\([edED][-+]\=[0-9]\+\)\=\>"
  41. " floating point number, without dot, with exponent
  42. syn match nastranDmapFloat  "\<[0-9]\+[edED][-+]\=[0-9]\+\>"
  43.  
  44. syn match nastranDmapLogical "\(true\|false\)"
  45.  
  46. syn match nastranDmapPreCondit  "^#define\>"
  47. syn match nastranDmapPreCondit  "^#include\>"
  48. "
  49. " -------Comments may be contained in another line.
  50. "
  51. syn match nastranDmapComment "^[\$].*$"
  52. syn match nastranDmapComment "\$.*$"
  53. syn match nastranDmapComment "^[\$].*$" contained
  54. syn match nastranDmapComment "\$.*$"  contained
  55. " Treat all past 72nd column as a comment. Do not work with tabs!
  56. " Breaks down when 72-73rd column is in another match (eg number or keyword)
  57. syn match  nastranDmapComment  "^.\{-72}.*$"lc=72 contained
  58.  
  59. "
  60. " -------Utility Modules
  61. "
  62. syn keyword nastranDmapUtilmod         append copy dbc dbdict dbdir dmin drms1
  63. syn keyword nastranDmapUtilmod         dtiin eltprt ifp ifp1 inputt2 inputt4 lamx
  64. syn keyword nastranDmapUtilmod         matgen matgpr matmod matpch matprn matprt
  65. syn keyword nastranDmapUtilmod         modtrl mtrxin ofp output2 output4 param
  66. syn keyword nastranDmapUtilmod         paraml paramr prtparam pvt scalar
  67. syn keyword nastranDmapUtilmod         seqp setval tabedit tabprt tabpt vec vecplot
  68. syn keyword nastranDmapUtilmod         xsort
  69. "
  70. " -------Matrix Modules
  71. "
  72. syn keyword nastranDmapMatmod          add add5 cead dcmp decomp diagonal fbs merge
  73. syn keyword nastranDmapMatmod          mpyad norm read reigl smpyad solve solvit
  74. syn keyword nastranDmapMatmod          trnsp umerge umerge1 upartn dmiin partn
  75. syn region  nastranDmapMatmod          start=+^ *[Dd][Mm][Ii]+ end=+[\/]+
  76. "
  77. " -------Implicit Functions
  78. "
  79. syn keyword nastranDmapImplicit abs acos acosh andl asin asinh atan atan2
  80. syn keyword nastranDmapImplicit atanh atanh2 char clen clock cmplx concat1
  81. syn keyword nastranDmapImplicit concat2 concat3 conjg cos cosh dble diagoff
  82. syn keyword nastranDmapImplicit diagon dim dlablank dlxblank dprod eqvl exp
  83. syn keyword nastranDmapImplicit getdiag getsys ichar imag impl index indexstr
  84. syn keyword nastranDmapImplicit int itol leq lge lgt lle llt lne log log10
  85. syn keyword nastranDmapImplicit logx ltoi mcgetsys mcputsys max min mod neqvl
  86. syn keyword nastranDmapImplicit nint noop normal notl numeq numge numgt numle
  87. syn keyword nastranDmapImplicit numlt numne orl pi precison putdiag putsys
  88. syn keyword nastranDmapImplicit rand rdiagon real rtimtogo setcore sign sin
  89. syn keyword nastranDmapImplicit sinh sngl sprod sqrt substrin tan tanh
  90. syn keyword nastranDmapImplicit timetogo wlen xorl
  91. "
  92. "
  93. "--------------------INPUT FILE SYNTAX---------------------------------------
  94. "
  95. "
  96. " -------Nastran Statement
  97. "
  98. syn keyword nastranNastranCard           nastran
  99. "
  100. " -------The File Management Section (FMS)
  101. "
  102. syn region nastranFMSCard start=+^ *[Aa][Cc][Qq][Uu][Ii]+ end=+$+  oneline
  103. syn region nastranFMSCard start=+^ *[Aa][Ss][Ss][Ii][Gg]+ end=+$+  oneline
  104. syn region nastranFMSCard start=+^ *[Cc][oO][Nn][Nn][Ee]+ end=+$+  oneline
  105. syn region nastranFMSCard start=+^ *[Dd][Bb][Cc][Ll][Ee]+ end=+$+  oneline
  106. syn region nastranFMSCard start=+^ *[Dd][Bb][Dd][Ii][Cc]+ end=+$+  oneline
  107. syn region nastranFMSCard start=+^ *[Dd][Bb][Dd][Ii][Rr]+ end=+$+  oneline
  108. syn region nastranFMSCard start=+^ *[Dd][Bb][Ff][Ii][Xx]+ end=+$+  oneline
  109. syn region nastranFMSCard start=+^ *[Dd][Bb][Ll][Oo][Aa]+ end=+$+  oneline
  110. syn region nastranFMSCard start=+^ *[Dd][Bb][Ll][Oo][Cc]+ end=+$+  oneline
  111. syn region nastranFMSCard start=+^ *[Dd][Bb][Ss][Ee][Tt]+ end=+$+  oneline
  112. syn region nastranFMSCard start=+^ *[Dd][Bb][Uu][Nn][Ll]+ end=+$+  oneline
  113. syn region nastranFMSCard start=+^ *[Dd][Bb][Uu][Pp][Dd]+ end=+$+  oneline
  114. syn region nastranFMSCard start=+^ *[Dd][Ee][Ff][Ii][Nn]+ end=+$+  oneline
  115. syn region nastranFMSCard start=+^ *[Ee][Nn][Dd][Jj][Oo]+ end=+$+  oneline
  116. syn region nastranFMSCard start=+^ *[Ee][Xx][Pp][Aa][Nn]+ end=+$+  oneline
  117. syn region nastranFMSCard start=+^ *[Ii][Nn][Cc][Ll][Uu]+ end=+$+  oneline
  118. syn region nastranFMSCard start=+^ *[Ii][Nn][Ii][Tt]+ end=+$+  oneline
  119. syn region nastranFMSCard start=+^ *[Pp][Rr][Oo][Jj]+ end=+$+  oneline
  120. syn region nastranFMSCard start=+^ *[Rr][Ee][Ss][Tt]+ end=+$+  oneline
  121. syn match   nastranDmapUtilmod         "^ *[Rr][Ee][Ss][Tt][Aa].*,.*," contains=nastranDmapComment
  122. "
  123. " -------Executive Control Section
  124. "
  125. syn region nastranECSCard start=+^ *[Aa][Ll][Tt][Ee][Rr]+ end=+$+  oneline
  126. syn region nastranECSCard start=+^ *[Aa][Pp][Pp]+ end=+$+  oneline
  127. syn region nastranECSCard start=+^ *[Cc][Oo][Mm][Pp][Ii]+ end=+$+  oneline
  128. syn region nastranECSCard start=+^ *[Dd][Ii][Aa][Gg] + end=+$+  oneline
  129. syn region nastranECSCard start=+^ *[Ee][Cc][Hh][Oo]+ end=+$+  oneline
  130. syn region nastranECSCard start=+^ *[Ee][Nn][Dd][Aa][Ll]+ end=+$+  oneline
  131. syn region nastranECSCard start=+^ *[Ii][Dd]+ end=+$+  oneline
  132. syn region nastranECSCard start=+^ *[Ii][Nn][Cc][Ll][Uu]+ end=+$+  oneline
  133. syn region nastranECSCard start=+^ *[Ll][Ii][Nn][Kk]+ end=+$+  oneline
  134. syn region nastranECSCard start=+^ *[Mm][Aa][Ll][Tt][Ee]+ end=+$+  oneline
  135. syn region nastranECSCard start=+^ *[Ss][Oo][Ll] + end=+$+  oneline
  136. syn region nastranECSCard start=+^ *[Tt][Ii][Mm][Ee]+ end=+$+  oneline
  137. "
  138. " -------Delimiters
  139. "
  140. syn match nastranDelimiter "[Cc][Ee][Nn][Dd]" contained
  141. syn match nastranDelimiter "[Bb][Ee][Gg][Ii][Nn]" contained
  142. syn match nastranDelimiter " *[Bb][Uu][Ll][Kk]" contained
  143. syn match nastranDelimiter "[Ee][Nn][Dd] *[dD][Aa][Tt][Aa]" contained
  144. "
  145. " -------Case Control section
  146. "
  147. syn region nastranCC start=+^ *[Cc][Ee][Nn][Dd]+ end=+^ *[Bb][Ee][Gg][Ii][Nn]+ contains=nastranDelimiter,nastranBulkData,nastranDmapComment
  148.  
  149. "
  150. " -------Bulk Data section
  151. "
  152. syn region nastranBulkData start=+ *[Bb][Uu][Ll][Kk] *$+ end=+^ [Ee][Nn][Dd] *[Dd]+ contains=nastranDelimiter,nastranDmapComment
  153. "
  154. " -------The following cards may appear in multiple sections of the file
  155. "
  156. syn keyword nastranUtilCard ECHOON ECHOOFF INCLUDE PARAM
  157.  
  158.  
  159. if version >= 508 || !exists("did_nastran_syntax_inits")
  160.   if version < 508
  161.      let did_nastran_syntax_inits = 1
  162.      command -nargs=+ HiLink hi link <args>
  163.   else
  164.      command -nargs=+ HiLink hi link <args>
  165.   endif
  166.   " The default methods for highlighting.  Can be overridden later
  167.   HiLink nastranDmapexecmod          Statement
  168.   HiLink nastranDmapType             Type
  169.   HiLink nastranDmapPreCondit        Error
  170.   HiLink nastranDmapUtilmod          PreProc
  171.   HiLink nastranDmapMatmod           nastranDmapUtilmod
  172.   HiLink nastranDmapString           String
  173.   HiLink nastranDmapNumber           Constant
  174.   HiLink nastranDmapFloat            nastranDmapNumber
  175.   HiLink nastranDmapInitTab          nastranDmapNumber
  176.   HiLink nastranDmapTab              nastranDmapNumber
  177.   HiLink nastranDmapLogical          nastranDmapExecmod
  178.   HiLink nastranDmapImplicit         Identifier
  179.   HiLink nastranDmapComment          Comment
  180.   HiLink nastranDmapRepeat           nastranDmapexecmod
  181.   HiLink nastranNastranCard          nastranDmapPreCondit
  182.   HiLink nastranECSCard              nastranDmapUtilmod
  183.   HiLink nastranFMSCard              nastranNastranCard
  184.   HiLink nastranCC                   nastranDmapexecmod
  185.   HiLink nastranDelimiter            Special
  186.   HiLink nastranBulkData             nastranDmapType
  187.   HiLink nastranUtilCard             nastranDmapexecmod
  188.   delcommand HiLink
  189. endif
  190.  
  191. let b:current_syntax = "nastran"
  192.  
  193. "EOF vim: ts=8 noet tw=120 sw=8 sts=0
  194.